home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Configs / Thor FTP-Mail.extro < prev    next >
Encoding:
Text File  |  1998-03-15  |  504 b   |  28 lines
  1.  
  2. ADDRESS COMMAND 'echo >>'DATA.BBSPath'RS'messagenumber'.temp "end"'
  3.  
  4. SAY "succeeded"
  5. SAY "Send mail to Thor..."
  6.  
  7. drop EVENT.
  8.  
  9. EVENT.TOADDR = "%2"
  10. EVENT.SUBJECT = "RecentScript-FTP-Mail-Request"
  11. EVENT.CONFERENCE = "EMail"
  12. EVENT.MSGFILE = 'RS'messagenumber'.temp'
  13.  
  14. WRITEBREVENT BBSNAME %5 EVENT 0 STEM EVENT
  15.  
  16. IF(rc ~= 0) THEN DO
  17.   SAY BBSREAD.LASTERROR
  18.   EXIT
  19. END
  20.  
  21. SAY "succeeded"
  22.  
  23. IF stopthor = 1 THEN DO
  24.   ADDRESS COMMAND 'run <>NIL: `GetEnv THOR/THORPath`bin/LoadBBSRead QUIT'
  25. END
  26.  
  27. SAY "Job completed"
  28.